home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 11 / NIKKEI-MAC-CD-VOL-11-1998-03.ISO.7z / NIKKEI-MAC-CD-VOL-11-1998-03.ISO / オンラインソフト / 2.日経MAC超定番 / UltraFind 2.5.3 Full Pack.sit / UltraFind 2.5.3 Full Package / AppleScript™ Examples / UF Get Version < prev    next >
Text File  |  1997-06-22  |  1KB  |  33 lines
  1.  
  2. tell application "UltraFind 2.5.3"
  3.     clear
  4.     set the text of fileName of its searchRoutine to "SimpleText"
  5.     set the fileType of its searchRoutine to "APPL"
  6.     scan
  7. end tell
  8.  
  9. copy the result to numFiles
  10.  
  11. if numFiles is greater than 0 then
  12.     repeat with fileNum from 1 to numFiles
  13.         
  14.         tell application "UltraFind 2.5.3"
  15.             copy (the fileName of fileRecord fileNum) to fName
  16.             copy (the fileCreator of fileRecord fileNum) to fCreator
  17.             copy (the fileType of fileRecord fileNum) to fType
  18.             copy (the version of fileRecord fileNum) to fVersion
  19.             if fVersion is equal to "" then set fVersion to "N/A"
  20.             copy (the accessPath of fileRecord fileNum) to fPath
  21.         end tell
  22.         
  23.         display dialog "Found file " & (fileNum as text) & " of " & (numFiles as text) & return & return & ﾂ
  24.             "Filename : " & fName & return & ﾂ
  25.             "Creator   : '" & fCreator & "'" & return & ﾂ
  26.             "Type        : '" & fType & "'" & return & return & ﾂ
  27.             "Version   : '" & fVersion & "'" & return & ﾂ
  28.             "Where :" & return & return & fPath
  29.     end repeat
  30. end if
  31.  
  32.  
  33.